5 :SYS3792
10 REM MIDIDATASAB49152
20 REM WRITE=49600
30 REM POINTER=49601
40 REM STACKAB49602+POINTER
50 REM********************************
55 REM
60 REM MIDIDEMO (C) BY CTRONIC
65 REM
70 REM CHRISTIAN TOENNIES
72 REM A.DUERERSTR.6
75 REM 4508 BOHMTE 1
80 REM
85 REM********************************
98 SYS49152
99 PRINTCHR$(14)
100 REM MIDICHECK
200 PRINT"[147]":PRINT"[145]               [205][201][196][201][195][200][197][195][203]                "
210 PRINT"[194]ITTE VERBINDEN [211]IE JETZT DIE [194]UCHSEN"
220 PRINT"[205][201][196][201]-[201]N UND [205][201][196][201]-[207]UT MIT EINEM"
230 PRINT"[205][201][196][201]-KABEL UND DRUECKEN [211]IE AN- "
240 PRINT"SCHLIESSEND EINE [212]ASTE."
250 PRINT"                [176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
255 PRINT"                [221]            [221]"
260 PRINT"               [166][166][166]          [166][166][166]"
265 PRINT"               [166][166][166]          [166][166][166]"
270 PRINT"            [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
275 PRINT"            [221] [205][201][196][201]          [205][201][196][201]"
280 PRINT"            [221]  OUT           IN "
285 PRINT"            [221]  "
290 PRINT"            [221]
295 [151]198,0:[146]198,1
299 [153]"LOAD"
300 [153]"ON               (null)RIGHT$STR$RIGHT$LENLEFT$VALLEN(null)               CLOSE"
310 [153]"(null)ENN (null)IE JETZT EINE (null)ASTE DRUECKEN,"
320 [153]"WIRD DIESE RIGHT$NFORMATION IM ATN(null)LENRIGHT$RIGHT$-LENODE AN"
330 [153]"DIE (null)RIGHT$STR$RIGHT$-(null)UT PEEKUCHSE GELEITET.(null)RIGHT$STR$RIGHT$-RIGHT$N "
335 [153]"EMPFAENGT DIE STR$ATEN UND SCHREIBT SIE AUF";
340 [153]"DEN PEEKILDSCHIRM."
350 [153]"   NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOT      NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOT"
353 [153]"   SPC(          SPC(      SPC(          SPC("
355 [153]"   SPC( (null)RIGHT$STR$RIGHT$-(null)UT SPC(      SPC( (null)RIGHT$STR$RIGHT$-RIGHT$N  SPC("
360 [153]"   SPC(          SPC(      SPC(          SPC("
370 [153]"   SPC(NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTSPC(      SPC(NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTSPC(
380 PRINT"   [166]          [166]      [166]          [166]"
384 PRINT"     ?                 ="
385 Z=1024+19*40:S=102:POKEZ+3,S:POKEZ+14,S:POKEZ+21,S:POKEZ+32,S
390 PRINT"   [166]          [166]      [166]          [166]"
395 PRINT"   [166][168][168][168][168][168][168][168][168][168][168][166]      [166][168][168][168][168][168][168][168][168][168][168][166]"
397 PRINT"       [218]URUECK MIT > [210]ETURN <"
410 GETA$:IFA$=""THEN410
420 A=ASC(A$):POKEZ+9,A:POKE49600,A
422 SYS49185
425 IFA=13THENGOTO100
430 X=PEEK(49601):POKEZ+26,PEEK(49602+X-1)
480 GOTO410